Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/infop125.arc/PAGE_11.INC

Text File | 1991-04-28 | 211b | 13 lines

procedure page_11;

begin
  caption2('Environment');
  window(3, 4, twidth, tlength - 2);
  for i:=1 to envcount do begin
    pause2;
    if endit then
      Exit;
    writeln(envstr(i))
  end
end;